library(haven)
setwd("F:/tmp")

cfq_g <- read_xpt("xpt/CFQ_G.XPT" )

#print(demo)
aa <-cfq_g[1:3]
print(aa)


class(cfq_g)
cfg